home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CASIOCOL.ZIP / KRILE1D.ZIP / SOURCE.ZIP / PAUSE.ASI < prev    next >
Encoding:
Text File  |  1997-11-10  |  303 b   |  13 lines
  1. pause_exec:
  2. REM 5 sec. timer routine from original QBasic source code written by:
  3. REM obother@netcom.com (Glen Blankenship)
  4. REM (5 * 18.2 clock-ticks-per-second = 91)
  5. TickOne = TIMER
  6. FOR i = 1 TO a
  7.    TickTwo = TickOne
  8.    WHILE TickTwo = TickOne
  9.        TickOne = TIMER
  10.    WEND
  11. NEXT i
  12. RETURN
  13.